#!"/Applications/XAMPP/xamppfiles/bin/perl"

package Pizza;

sub new
{
    my $class = shift;
    my $self = {
        _name => shift,
        _userId => shift,
        _size => shift,
        _price => shift
    };
    bless $self, $class;
    return $self;
}

sub getName {
    my( $self ) = @_;
    return $self->{_name};
}

sub getUserId {
    my( $self ) = @_;
    return $self->{_userId};
}

sub getSize {
    my( $self ) = @_;
    return $self->{_size};
}

sub getPrice {
    my( $self ) = @_;
    return $self->{_price};
}
1;